home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / lifemake.cpt / LifeMaker Demo.rsrc / LIF1_18073_Triangles < prev    next >
Encoding:
Text File  |  1991-07-16  |  144 b   |  7 lines
  1. RULE Triangles
  2.    VAR new
  3. BEGIN
  4.    new := center[0] OR north[0] OR east[0] OR west[0]
  5.    IF center[0] THEN new := new + 2 END
  6.    RETURN new 
  7. END